home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / PTRPDEMO / TEST14.TRP < prev    next >
Text File  |  1995-01-17  |  256b  |  11 lines
  1. procedure main
  2. var
  3.         s       : string;
  4. endvar
  5.         repeat
  6.                 write("Enter 'EXIT' to exit, or something else : ");
  7.                 readln(s);
  8.                 writeln("> You Entered : ", s);
  9.         until (s = "EXIT")
  10. endproc
  11.